inherited frmEtiquetas: TfrmEtiquetas
  Left = 556
  Top = 175
  Caption = 'Etiquetas'
  ClientHeight = 416
  ClientWidth = 610
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 379
    Width = 610
    inherited Bitpesquisa: TBitBtn
      Left = 529
    end
    object btnEmissao: TBitBtn
      Left = 444
      Top = 5
      Width = 83
      Height = 26
      Caption = 'Gerar Etiquetas'
      TabOrder = 7
      OnClick = btnEmissaoClick
    end
  end
  inherited Panel2: TPanel
    Width = 610
    Height = 379
    inherited Panel3: TPanel
      Width = 608
      Caption = 'Etiquetas'
      inherited GroupBox1: TGroupBox
        Left = 529
      end
    end
    inherited Panel4: TPanel
      Width = 608
      Height = 337
      object Label1: TLabel [0]
        Left = 16
        Top = 16
        Width = 44
        Height = 13
        Caption = 'Empresa:'
      end
      object Label2: TLabel [1]
        Left = 16
        Top = 64
        Width = 40
        Height = 13
        Caption = 'Produto:'
      end
      object Label3: TLabel [2]
        Left = 472
        Top = 61
        Width = 58
        Height = 13
        Caption = 'Quantidade:'
      end
      inherited DBGrid1: TDBGrid
        Top = 120
        Width = 600
        TabOrder = 7
        Columns = <
          item
            Expanded = False
            FieldName = 'BARRAS'
            Title.Caption = 'CODIGO DE BARRAS'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PRODUTO'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'QUANTIDADE'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MARCA'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'UNIDADE'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PRECOVENDA'
            Title.Caption = 'PRECO DE VENDA'
            Visible = True
          end>
      end
      inherited SbHints: TStatusBar
        Top = 314
        Width = 600
      end
      object DBEDTEMPRESA: TDBEdit
        Left = 16
        Top = 32
        Width = 49
        Height = 21
        CharCase = ecUpperCase
        DataField = 'ETI_EMPRESA'
        DataSource = DtSrc
        Enabled = False
        TabOrder = 0
        OnExit = DBEDTEMPRESAExit
      end
      object btnEmpresa: TBitBtn
        Left = 65
        Top = 32
        Width = 25
        Height = 21
        Caption = '...'
        Enabled = False
        TabOrder = 1
        TabStop = False
        OnClick = btnEmpresaClick
      end
      object btnProduto: TBitBtn
        Left = 112
        Top = 76
        Width = 25
        Height = 21
        Caption = '...'
        Enabled = False
        TabOrder = 4
        TabStop = False
        OnClick = btnProdutoClick
      end
      object edtQuantidade: TDBEdit
        Left = 472
        Top = 76
        Width = 57
        Height = 21
        CharCase = ecUpperCase
        DataField = 'ETI_QUANTIDADE'
        DataSource = DtSrc
        Enabled = False
        TabOrder = 6
      end
      object stProduto: TStaticText
        Left = 136
        Top = 76
        Width = 331
        Height = 21
        AutoSize = False
        BorderStyle = sbsSingle
        TabOrder = 5
      end
      object stEmpresa: TStaticText
        Left = 89
        Top = 32
        Width = 377
        Height = 21
        AutoSize = False
        BorderStyle = sbsSingle
        TabOrder = 2
      end
      object edtProduto: TEdit
        Left = 16
        Top = 76
        Width = 97
        Height = 21
        CharCase = ecUpperCase
        Enabled = False
        TabOrder = 3
        OnExit = edtProdutoExit
      end
    end
  end
  inherited DtSrc: TDataSource
    DataSet = SQLC_Etiquetas
  end
  inherited DtSrcDBGrid: TDataSource
    Left = 448
    Top = 272
  end
  inherited ZSQLC_ConsultaDbGrid: TZReadOnlyQuery
    SQL.Strings = (
      'select'
      '  eti.eti_empresa as EMPRESA,'
      '  eti.eti_idfproduto as CODPRODUTO,'
      '  eti.eti_quantidade as QUANTIDADE,'
      '  mar.mar_nome as MARCA,'
      '  esp.esp_descri as PRODUTO,'
      '  esp.esp_codigo as CODLOJA,'
      '  esp.esp_codbar as BARRAS,'
      '  uni.uni_descricao as UNIDADE,'
      '  ese.ese_preven as PRECOVENDA'
      'from etiquetas_produto eti, estoque_produto esp'
      'inner join marca mar on (mar.mar_codigo=esp.esp_marcod)'
      'inner join unidade uni on (uni.uni_codigo=esp.uni_codigo)'
      'inner join estoque_empresa ese on'
      
        '(ese.ese_idfcod=eti.eti_idfproduto and ese.ese_empcod=eti.eti_em' +
        'presa)'
      'where eti.eti_idfproduto=esp.esp_idfcod'
      'order by mar.mar_nome,esp.esp_codbar')
    Left = 481
    Top = 273
  end
  inherited DSP_Consulta: TDataSetProvider
    Left = 481
    Top = 305
  end
  inherited CDS_Consulta_DbGrid: TClientDataSet
    Left = 449
    Top = 305
    object CDS_Consulta_DbGridEMPRESA: TSmallintField
      FieldName = 'EMPRESA'
      Required = True
    end
    object CDS_Consulta_DbGridCODPRODUTO: TIntegerField
      FieldName = 'CODPRODUTO'
      Required = True
    end
    object CDS_Consulta_DbGridQUANTIDADE: TSmallintField
      FieldName = 'QUANTIDADE'
      Required = True
    end
    object CDS_Consulta_DbGridMARCA: TStringField
      FieldName = 'MARCA'
      Required = True
      Size = 40
    end
    object CDS_Consulta_DbGridPRODUTO: TStringField
      FieldName = 'PRODUTO'
      Required = True
      Size = 40
    end
    object CDS_Consulta_DbGridCODLOJA: TStringField
      FieldName = 'CODLOJA'
      Required = True
      Size = 13
    end
    object CDS_Consulta_DbGridBARRAS: TStringField
      FieldName = 'BARRAS'
      Size = 15
    end
    object CDS_Consulta_DbGridUNIDADE: TStringField
      FieldName = 'UNIDADE'
      Required = True
      Size = 30
    end
    object CDS_Consulta_DbGridPRECOVENDA: TFloatField
      FieldName = 'PRECOVENDA'
    end
  end
  object SQLC_Etiquetas: TSQLClientDataSet
    CommandText = 
      'SELECT ETI_EMPRESA, ETI_IDFPRODUTO, ETI_QUANTIDADE FROM ETIQUETA' +
      'S_PRODUTO WHERE ETI_EMPRESA=:ETI_EMPRESA AND ETI_IDFPRODUTO=:ETI' +
      '_IDFPRODUTO'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftUnknown
        Name = 'ETI_EMPRESA'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'ETI_IDFPRODUTO'
        ParamType = ptInput
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 65
    Top = 9
  end
  object aptbEtiqueta: TApolloTable
    FieldDefs = <>
    IndexDefs = <>
    TableName = 'ETIQUEL.DBF'
    OEMTranslate = False
    Left = 505
    Top = 9
    object aptbEtiquetaCODIGO: TStringField
      FieldName = 'CODIGO'
      Size = 13
    end
    object aptbEtiquetaPRODUTO: TStringField
      FieldName = 'PRODUTO'
      Size = 40
    end
    object aptbEtiquetaCODIFOR: TStringField
      FieldName = 'CODIFOR'
      Size = 25
    end
    object aptbEtiquetaPRECO: TFloatField
      FieldName = 'PRECO'
    end
    object aptbEtiquetaREFERE: TStringField
      FieldName = 'REFERE'
    end
    object aptbEtiquetaUNIDADE: TStringField
      FieldName = 'UNIDADE'
      Size = 2
    end
    object aptbEtiquetaSECAO: TStringField
      FieldName = 'SECAO'
      Size = 30
    end
    object aptbEtiquetaNOMSUB: TStringField
      FieldName = 'NOMSUB'
      Size = 30
    end
    object aptbEtiquetaGRUPO: TStringField
      FieldName = 'GRUPO'
      Size = 3
    end
    object aptbEtiquetaPESO: TFloatField
      FieldName = 'PESO'
    end
    object aptbEtiquetaOBSERVA: TStringField
      FieldName = 'OBSERVA'
      Size = 35
    end
    object aptbEtiquetaOBSERVA2: TStringField
      FieldName = 'OBSERVA2'
      Size = 35
    end
    object aptbEtiquetaIMPPRECO: TStringField
      FieldName = 'IMPPRECO'
      Size = 1
    end
    object aptbEtiquetaFORNECE: TStringField
      FieldName = 'FORNECE'
      Size = 30
    end
    object aptbEtiquetaSALDO: TFloatField
      FieldName = 'SALDO'
    end
    object aptbEtiquetaCODIGOL: TStringField
      FieldName = 'CODIGOL'
      Size = 13
    end
    object aptbEtiquetaPRECOSTR: TStringField
      FieldName = 'PRECOSTR'
      Size = 15
    end
    object aptbEtiquetaCABEC1: TStringField
      FieldName = 'CABEC1'
      Size = 40
    end
    object aptbEtiquetaCABEC2: TStringField
      FieldName = 'CABEC2'
      Size = 40
    end
    object aptbEtiquetaCABEC3: TStringField
      FieldName = 'CABEC3'
      Size = 40
    end
    object aptbEtiquetaPRODUTO1: TStringField
      FieldName = 'PRODUTO1'
    end
    object aptbEtiquetaPRODUTO2: TStringField
      FieldName = 'PRODUTO2'
    end
  end
  object RvProjeto: TRvProject
    Engine = DtmGeral.RvS_Relatorios
    Left = 233
    Top = 9
  end
  object rvEtiquetas: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    Left = 201
    Top = 9
  end
  object CDS_Etiqueta: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 433
    Top = 9
    object CDS_EtiquetaCODIGO: TStringField
      FieldName = 'CODIGO'
    end
    object CDS_EtiquetaPRODUTO: TStringField
      FieldName = 'PRODUTO'
      Size = 60
    end
    object CDS_EtiquetaCODIFOR: TStringField
      FieldName = 'CODIFOR'
    end
    object CDS_EtiquetaPRECO: TCurrencyField
      DisplayWidth = 12
      FieldName = 'PRECO'
    end
    object CDS_EtiquetaREFERE: TStringField
      FieldName = 'REFERE'
    end
    object CDS_EtiquetaUNIDADE: TStringField
      FieldName = 'UNIDADE'
    end
    object CDS_EtiquetaSECAO: TStringField
      FieldName = 'SECAO'
    end
    object CDS_EtiquetaNOMSUB: TStringField
      FieldName = 'NOMSUB'
    end
    object CDS_EtiquetaGRUPO: TStringField
      FieldName = 'GRUPO'
    end
    object CDS_EtiquetaPESO: TFloatField
      FieldName = 'PESO'
    end
    object CDS_EtiquetaFORNECE: TStringField
      FieldName = 'FORNECE'
    end
    object CDS_EtiquetaCODIGOL: TStringField
      FieldName = 'CODIGOL'
    end
    object CDS_EtiquetaCABEC1: TStringField
      FieldName = 'CABEC1'
      Size = 40
    end
    object CDS_EtiquetaCABEC2: TStringField
      FieldName = 'CABEC2'
      Size = 40
    end
    object CDS_EtiquetaCABEC3: TStringField
      FieldName = 'CABEC3'
      Size = 40
    end
  end
end
